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METHOD AND APPARATUS FOR COMPLEX DATABASE STRUCTURE 
Inventor: Dan Davison 

5 This application claims the benefit of U.S. Provisional Application No. 

60/129,574, filed on April 16, 1999, entitled "COMPLEX DATABASE 
STRUCTURE", which is incorporated herein by reference. 

This application also contains copyrighted material, Copyright 1999, 
Clarify Inc. The copyright owner has no objection to the reproduction by 
10 anyone of the patent document or the patent disclosure, as it appears in the 
Patent and Trademark Office patent file or records, but otherwise reserves all 
copyright rights whatsoever in the copyrighted material. 

Technical Field 

1 5 The present invention relates to a relational data structure corresponding 

to a complex hierarchy relationship. More particularly, the present invention 
relates to a relational data structure corresponding to elements or database 
objects to provide defining simultaneous multiple hierarchies and t o provide 
simplified location and access to nodes in a hierarchy. 

20 BACKGROUND OF THE INVENTION 

Databases are well-known in the art. Typically, databases store 

elements or objects that contain data and contain the relationship from one 

object to another. The database can then be queried by conventional Structured 

Query Language ("SQL") to extract information including summary 

25 information therefrom. 

An example of a database structure is a tree structure, which contains 
zero or more nodes that are linked together in a hierarchical fashion. The 
topmost node has been called the root. The root could have zero or more child 
nodes, connected by edges or links. The root is the parent node to its children. 

30 Each child node can in turn have zero or more children of its own. Nodes 

sharing the same parent are called siblings. Every node in a tree has exactly one 
parent node (except for the root, which has none), and all nodes in the tree are 
descendants of the root node. These relationships have set out that there is one 
and only one path from the root node to any other node in the tree. 
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There are a number of shortcomings of such database structures. For 
example, in order to process a summary level information of the data at a lower 
child level, object A level, such structures must be iteratively processed by 
summarizing the data from objects in the search path. This iteration for 
5 retrieval is inefficient and cumbersome. Further, such structures shown do not 
allow both single parent and multiple parent hierarchies. In addition, it does not 
support a graph database structure. 

Thus, there is a need to overcome the foregoing difficulties of such 
database structure. 

10 SUMMARY OF THE INVENTION 

Provided is a method of creating a relational database having a plurality 
of objects, each having an associated data is disclosed. A first database table 
having a plurality of entries, with each entry representing an object with an 
associated data is formed. A second database table having a plurality of entries, 
1 5 each entry defining a relationship between the plurality of objects is also 
formed. As another aspect, the present invention relates to an article of 
manufacture in which a computer usable medium having a computer readable 
program code embodied therein is configured to cause a computer to execute 
the foregoing. 

20 

BRIEF DESCRIPTION OF DRAWINGS 

Figure 1 is a schematic diagram showing a complex tree-like 

hierarchical database structure to which the present invention can represent. 

Figure 2 is a database table showing the relationship of the database 
25 objects along with the data stored in the database table. 

Figure 3 is a block level diagram of one embodiment of the present 
invention. 

Figure 4 is a schematic diagram of another embodiment of the present 
invention. 

30 DETAILED DESCRIPTION 

Referring to Figure 1, there is shown a hierarchical type of database 

structure. As is shown in Figure 1, object A or database element A has a direct 

relationship to objects B, C, D. As used hereinafter, elements B, C, D will be 
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referred to as objects. Object B has objects E and F directly related thereto. 
Object C is directly related to object G. Object D is directly related to object H. 
The database structure shown in Figure 1 is typically termed a tree structure and 
has a hierarchical relationship between objects A, B, C, D, E, F, G and H. 
5 Typically, the database structure shown in Figure 1 can represent, for example, 
sales data. Thus, objects E, F, G and H can represent sales information in a 
certain locality. Objects B, C and D may be summaries of the sales in a certain 
region. Object A may then be a summary of a higher order region such as a 
country. 

10 The relationship of the objects A-H in the structure is shown in Figure 2. 

Each object is represented as a row in a database table 8. In one of the columns, 
the object is represented by a unique number. Thus, object A is assigned the 
number 0, object B is assigned the number 1, etc. In another column, the 
objects to which the particular object in that row has a direct relationship is so 

15 indicated. Thus, object A, having the number 0, has a direct relationship with 
objects B, C and D having the numbers 1, 2 and 3 respectively. Similarly, 
object B, having the number 1, has a direct relationship with objects E and F 
with numerical identifiers of 4 and 5 respectively. Similarly, object C, bears a 
direct relationship to object G having a numerical identifier of 6. Last but not 

20 least is object D having a direct relationship with object H having a numerical 
identifier of 7. In this manner, the relationship of each of the objects to one 
another is defined in this particular database table. Other columns in each of the 
rows stores the data associated with that particular object. 

Referring to Figure 3 there is shown a schematic diagram of the 

25 relationship of the database structure to implement the method and apparatus of 
the present invention. A first table of members 10 has a plurality of entries. 
Each entry is defined, e.g. by one row and comprises a database object along 
with its associated data. The first table 10 has a listing of only of each object 
and its associated data. Thus, for the hierarchical relationship shown in Figure 

30 1, the table 10 contains entries for objects A-H and their associated data. 

A second table of reporting relationships 20 is constructed. The second 
table 20 has a plurality of entries with each entry showing each of the 
relationships existing in the complex hierarchical structure to which the first 
table 10 relates. Thus, for example, for the hierarchical structure shown in 
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Figure 1, there is the following relationship between the various database 
objects: 



5 



Parent 


Child 




A 


A 


B 


A 


C 


A 


D 


A 


E 


A 


F 


A 


G 


A 


H 


B 


E 


B 


F 


C 


G 


D 


H 



Since there are twelve possible relationships between the database objects of 
Figure 1, twelve rows or entries are established. Each entry identifies the parent 
of that relationship and its associated child. Further, each entry indicates 
whether that relationship is a direct ("0") or indirect ("1") relationship. Thus 

20 for the parent-child relationships of A-B, A-C, A-D, these are direct 

relationships. For the parent child relationships of A-E, A-F, A-G and A-H, 
these are indirect relationships. Similarly, for the relationships of B-E, B-F, B- 
G, and B-H, these are direct relationships. In each entry is an indication of the 
databases structure to which this relationship represents. Thus, for example, the 

25 twelve entries relate to the hierarchical structure shown in Figure 1 , and has the 
associated entry of "1" under "Sum Obj". Because the database structure 
relationship of the present invention can be very flexible, the database objects 
shown in Figure 1, may be rearranged and have a different relationship. In that 
event, if, for example, in the second database structural relationship, object E 

30 represented by the numerical identifier 4 reports directly to object A, and if it is 
desired to represent that relationship, in the same table that representation can 
be set forth with a "Sum Obj" of "2" showing that it represents a different 
hierarchical structure. 
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A third table of hierarchy 30 is a summary of all the various possible 
database structural relationships to which the elements from second table 20 can 
be summarized. Thus, each row in the third table 30 represents a hierarchy and 
is a summary of the data in the rows in the second table 20 having rows 
5 identified with the identifier "1 ", in the "Sum Obj" column. An identifier 2 in a 
row in third table 30 would summarize the relationships from those rows in 
which there is a column entry labeled "2" for "Sum Obj", and would represent a 
different hierarchy. Thus, the first row in third table 30 is a summary of the 
data in which the objects have the relationship shown in Figure 1 . 
1 0 The operation of the database structure shown in Figure 3 will now be 

described. First, given any node in any hierarchy, one can retrieve the nodes 
that report to that node with a SQL statement and executed with one round trip. 
Thus, if it is desired, for example, to determine the data summarized into object 
B at data node identified as 1 , one has to do is summarize all the data in which 
1 5 node 1 (object B) is listed as the parent in second table 20, retrieving the 

identification of the child that reports to that node and summarizing the data 
from the first table 10. 

Similarly, to obtain a summary of the data at node 0 or database object 
A, then the second table 20 is accessed and the entries in which 0 (object A) is 
20 the parent are referenced and the data is retrieved from the associated child from 
the first table 10 and summarize those. Therefore, retrieval of a node of the 
objects that report to it can be achieved by a SQL statement providing 
expeditious searches. 

Second, an advantage of the present invention is that it allows definition 
25 of simultaneous multiple hierarchies on the database tables without having to 
use dedicated database relations for any of the hierarchies. As previously 
discussed, it is possible, for example, for the database objects shown in Figure 1 
to have the relationship shown in Figure 1 . It is also possible for those same 
database objects to have a different relationship in which object E reports 
30 directly to object A. This example is shown in Figure 3 wherein the same 

database objects in first database table 10 are shown in hierarchical relationship 
of 1 (under the "Sum Obj" column) and also the same relationship is established 
with a second hierarchical structure in which a 2 appears in the "Sum Obj" 
column. Thus, without the need to use dedicated database relationships for any 
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of the hierarchies, one can establish simultaneous multiple hierarchies on the 
same database objects. 

Third, with the present invention where the relationship is separate and 
apart from the underlying data, single parent and multiple parent hierarchies can 
5 also be defined. Figure 1 shows a structural relationship of a single parent 
hierarchy. A multiple parent hierarchy would be, for example, with the 
structural relationship of Figure 1 inverted in which objects E, F, G and H are 
the parents and the childs are B, C, D and A. Database object B would have 
multiple parents reporting to both database object E and database object F. 
10 Establishing such a relationship in the database structural relationship of the 
present invention is simply a matter of defining the appropriate database object 
under the column of parent and the appropriate database object under the 
column of child. Such a structure would support both tree and graph type 
structures. 

1 5 From the foregoing, it can be seen that with the relationship defined 

separately from the underlying data, and with the definition of each parent and 
child, execution of retrieval of information from the database structure is 
extremely efficient and fast. Moreover, for example, if the hierarchy is to 
change, the definition change reformats the hierarchy by modifying the second 

20 table 20, accordingly. In contrast, in the database table 8, one must change the 
database table in which the data is also present. In the present invention, where 
the data is separate from the relationship, data integrity during maintenance can 
be preserved. Further, the functions of data entry and data maintenance can be 
separated. 

25 Referring to Figure 4 there is shown yet another embodiment of the 

present invention. As before, a first table 10 stores each of the database objects 
and their associated data. A second table 20 stores each of the relationships in a 
parent-child definition for the hierarchy to which the database objects stored in 
first table 1 0 represents. As previously discussed, second table 20 may store 

30 relationships representing more than one complex hierarchy relationship to 

which the database objects of first table 10 represent. Similar to Figure 3, each 
row of a third table 30 represents a different complex hierarchy structure to 
which the database objects stored in the first table 10 represent. 
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The difference between the database structure relationship shown in 
Figure 4 and that shown in Figure 3 is that there is an intermediate fourth table 
40 between the second table 20 and the third table 30. Each row in the fourth 
table 40 relates to a row in the third table 30 to a row in the second table 20. 
5 For example, in accounting, this may be termed a sub-total. Thus, for example, 
each row in the fourth table ("a Sub-Total") 40 may relate a row in third table 
30 ("a Grand Summary") to the rows in the second table 20. 

In the preferred embodiment the method of the present invention is 
practiced by a computer operating a computer readable program stored on a 

10 computer usable medium, such as a disc drive. The pertinent portion of the 

method of the present invention can be practiced by the following code, written 
in Clarify® Basic, a language that can be executed under any of the following 
operating systems: Microsoft NT, Sun Solaris, HP Unix, and ATX (IBM). The 
relevant objects are table rollup (one row for the hierarchy description), 

15 table Joc_rol_itm (all the "reports to" parent child rows), and table invjocatn 
(the objects being rolled up into this particular hierarchy). As an example, note 
the database relation from rollup to table_cycle_count. This allows a particular 
inventory cycle count to be tied to a particular rollup of inventory locations. 



Option Explicit 



8431. cbp 

CB code for Inventory Count Location window 



#DECLARESTRINGS lcb 
#DECLARESTRINGS oab 
# INCLUDE LE.cbh 
#INCLUDE cbconst.cbh 
# INCLUDE utils.cbh 
# INCLUDE CL.cbh 

Declare Function LEIsAChild( le As LEType ) As Boolean 
Declare Sub lcbGetRollup ( ) 

Declare Sub lcb_AddRolItm ( newParentRec As Record, newChildRec 
As Record, rollupRec As Record, parentDepth as Long ) 
Declare Function lcb_MeetAHRollupConditions ( rollupView As 
String, newParentRec As Record, newChildRec As Record, rollupRec 
As Record ) As Boolean 
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Declare Sub lcb_Delete_obj_rol_±tm ( newChildRec As Record, 
rollupRec As Record) 

Declare Sub lcb_GetDataToValidateAdd ( viewName As String, 
currParent As Record, currChild As Record, rollupRec As Record ) 
5 Declare Sub lcb_ValidateParent ( currParent As Record, rollupRec 
As Record, currParentLocRec As Record ) 

Declare Function lcb_lsltself ( newParentRec As Record, 
newChildRec As Record ) As Boolean 

Declare Function lcb_IsParent ( pList As List, newParentRec As 
10 Record ) As Boolean 

Declare Function lcb_IsChild { cList As List, newChildRec As 
Record ) As Boolean 

Declare Function lcb_InOtherInventoryRollup (newChildRec As 
Record, rollupRec As Record) As Boolean 
15 Declare Function lcb_IsSomeWhereInRollup ( newChildRec As Record 
) As Boolean 



global const RECORD_TYPE = 

' Form specific constants 

global gchildCList 
children list 
global gchildPList 
list 

global gparentCList 
children list 
global gparentPList 
list 



As List 
As List 
As List 
As List 



Dim childCList As List 

children list 

Dim childPList As List 

list 

Dim parentCList As List 

children list 

Dim parentPList As List 

list 

Dim otherlnvRollupParentList As List 
loc in other Inv rollup list 
Dim otherlnvRollupChildList 
loc in other Inv rollup list 
Dim invRollupList 



Dim nodeKeyRemoved 
that was removed 
Dim nodeDepthRemoved 
that was removed 



As List 
As List 
As Long 
As Long 



new child' s 

new child's parent 

new parent ' s 

new parent 1 s parent 

new child's 
new child's parent 
new parent ' s 
new parent ' s parent 
check for new child 
check for new child 
current rollup list 
' Store the node key 
1 Store the node depth 



50 Dim nodX as Long 

Dim imageVal as Long 

Dim selectedlmageVal as Long 

const tvwFirst = 0 'First Sibling. 

55 const tvwLast = 1 'Last Sibling, 

const tvwNext = 2 'Next sibling, 

const tvwPrevious = 3 'Previous sibling, 

const tvwChild = 4 'Child. 
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Populate UDT 



Sub FillLEHelp ( le As LEType ) 
Set le.frm = Me 

Set le.cobj = Cobj_recLocRollup 
Set le . cobj_leudt = Cobj_leudt 
Set le.clb = clbCbxLocRollups 
Set le.cbx = CBX_SelectLocRollup 

le.rec_type = RECORDJTYPE 

le.user_rec_type = LCB_COUNTLOC_USER_TYPE 

le.edit_from_list = TRUE 
le.dont_prefill = TRUE 
' le.fld_objid = "objid" 

Set le.btn_find = btnCbxf Rollup 

Set le.btn_done = DONE 

Set le.btn_add = btnAdd 

Set le .btn_replace = btnReplace 



Sub FillLE ( le As LEType ) 

Call FillLEHelp ( le } 
End Sub 



Make sure required fields are filled in 



Sub CheckRequired 0 
Dim le As LEType 
Call FillLE ( le ) 
Dim MyList As New List 
Set glst_reqd = MyList 
Call AddToReqdList { Me ) 
If glst_reqd. Count > 0 Tb 
Call MissingMsgO 
Call LESetSaveOK( le, 
End If 

End Sub 



Enable other buttons 



Sub ProperEnabling ( ) 

Dim locationRec as Record 

Dim nodeLocationRec as Record 

Dim rollupRec as Record 

Set nodeLocationRec = Cobj_recSelectLocBinNode . Contents 
Set rollupRec = Cobj_recLocRollup . Contents 

btnAdd. Enabled = ZeroOB JID ( Cobj_recLocRollup . Contents ) 
btnReplace . Enabled = Not ZeroOBJID ( 
Cobj_recLocRollup. Contents ) 

btnAdd. default = btnAdd .Enabled 
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btnReplace -default = btnReplace . Enabled 
btnRemoveRollup. Enabled = btnReplace . Enabled 

btnAddParent .Enabled = clbCbxCountLocs . SelCount = 1 and 
5 nodeLocationRec.GetField("loc_objid") = 0 

btnAddChi Id. Enabled = clbCbxCountLocs . SelCount > 0 and 
nodeLocationRec . GetField ( "loc_obj id" ) <> 0 

btnAddSibling. Enabled = clbCbxCountLocs . SelCount > 0 and 
nodeLocationRec. GetField ("loc_obj id") <> 0 
10 btnRemove .Enabled = nodeLocationRec . GetField ( "loc_obj id" ) <> 



If rollupRec. GetField ("obj id") = 0 Then 

Me -DisableControls "PBEFCbxeCountLoc" , "btnCbxf CountLoc" 
Else 

Me.EnableControls "PBEFCbxeCountLoc", "btnCbxf CountLoc " 
End If 

If nodeLocationRec. GetField ("loc_obj id") <> 0 Then 

Me .DisableControls "ddlRollupType" 
Else 

Me . EnableControls " ddlRol lupType " 
End If 



25 End Sub 

' Adhoc handler for Rollups 



Sub HandleAdhocRollup () 

CBX_SelectLocRollup . ClearPreFilter "object_type" , 
CBX_SelectLocRollup . AppendPreFilter "obj ect_type" 
"f ocus_type" , "is equal to", 228 



End Sub 



40 ' Adhoc handler for Locations 



Sub HandleAdhocLocationO 

CBX_SelectCountLocs . ClearPreFilter " Count Loc_loc_name " , "" 
CBX_SelectCountLocs .ClearPreFilter " CountLoc_loc_type " , " " 

CBX_SelectCountLocs . ClearPreFilter " " , 
" locatn2 inv_role : role_name " 

CBX_SelectCountLocs .AppendPreFilter " " , 
"locatn2inv_role:role_name", "is equal to", LCB_LOCATED_AT_ROLE 

CBX_SelectCountLocs .ClearPreFilter "class", "inv_class" 

CBX_SelectCountLocs .AppendPreFilter "class", "inv_class", "is 
equal to", 0 

End Sub 



' Clear all related data 
Sub ClearRelatedRollup ( ) 
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'Call ClearLOR( Cobj_lorLocRollup ) 
Call ClearCobj ( Cobj_recLocRollup , "rollup" ) 
clbCbxLocRollups .Unselect 
End Sub 

Sub ClearRelatedCountLoc () 

Call ClearLOR ( Cobj_lorLocatnView ) 

Call ClearCobj ( Cobj_recLocatnView, "locatn_view" ) 
clbCbxCountLocs .Unselect 
End Sub 



STANDARD EVENT HANDLERS 



Load the form 



Sub Form_Load ( ) 

Dim iconid As Long 

Dim colorval As Long 

Dim le As LEType 

Call InitLOR ( Cobj_lorLocRollup ) 

Call InitCobj ( Cobj_recLocRollup , "rollup" ) 

Call InitLOR ( Cobj_lorLocatnView ) 

Call InitCobj ( Cobj_recLocatnView, "locatn_view" ) 

Call InitCobj ( Cobj_recSelectLocBinNode , " locatn_view" ) 

Me .DisableControls "btnUseDone" 

Dim rollupTypList as New List 

rollupTypList . ItemType = "string" 

rollupTypList . Appendltem LCB_COUNT_PT_ROLLUP , 
LCB_PHYS I CAL_ROLLUP , LCB_OPER_ROLLUP 

Cob j _lopRol lupType .Fill rol lupTypLi st 
Cob j_lopRollupType .Refresh 
ddlRollupType.SetSelected 0 

Call FillLEHelp(le) 
Call LEListLoad{ le ) 
Call ClearRelatedRollup 
Call ClearRelatedCountLoc 
Call ProperEnabling 

'Mask color 
colorval = LCB_CNT_LOC_COLORVAL 

■set imagelist id in the resource dll 
iconid = LC B_CNT_LO C_ I MAG E L I S T 
tvwCountLoc . SetlmageList iconid, colorval 

'set selected and non-selected image Icons 
imageVal = LCB_LOC_TVW_IMAGE 

selectedlmageVal = LCB_LOC_SELECTED_TVW_IMAGE 

' set overlay image index mapping 
tvwCountLoc . SetOverlay Image LCB_TVW_OVERLAY_IMAGE , 1 
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CBX_SelectCountLocs . AppendDef aultSort 
"locatn2inv_role : inv_role2site : site_id" , 
" locatn2inv_role : inv_role2site : site_id" , 
5 CBX_SelectCountLocs .AppendDef aultSort 

"location_name", "ascending" 

nodeKeyRemoved = 0 
nodeDepthRemoved = 0 

10 

On Error Goto ErrHandler 
CBX_SelectLocRollup.SetAdhocCellReadOnly "use_type" 
On Error Goto 0 

15 Exit Sub 

ErrHandler: 

Resume Next 

End Sub 

20 



Done button is clicked 



25 Sub Done_Click() 

Dim le As LEType 
Call FillLE(le) 

'Notify account location window so that it can refresh its data 

Set grec_le = Cobj_recLocRollup . Contents 
30 Me .NotifyParent msgLEEditMoveRecord, "rollup" 

■ Standard close LE window logic 

Call LEListDoneClick ( le ) 
End Sub 

35 , 

' Rollup Find button is clicked 



Sub btnCbxf Rollup_Click ( ) 

40 

'Need to clear the currently selected rollup' s treeview 
tvwCountLoc . Clear 
Call ClearRelatedCountLoc 

Call ClearCobj ( Cob j_recSelectLocBinNode , " locatn_view" ) 

45 

'Need to add application required prefilters 
Call HandleAdhocRollup 

'Now do the Select CBX lookup 
50 Dim le As LEType 

Call FillLE(le) 
Call LEListFindClick ( le ) 

Call P rope rEnab ling 
55 End Sub 



Location Find button is clicked 



60 

Sub btnCbxf CountLoc_Click ( ) 



"ascending " 
"sort_loc_name" , 
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Call HandleAdhocLocation 
CBX_SelectCountLocs . Regenerate 
Call ProperEnabling 
End Sub 



Rollup Lookup button is clicked 



Sub PBEFCbxeRollup_Click() 

'Need to clear the currently selected rollup' s treeview 
tvwCountLoc . Clear 
Call ClearRelatedCountLoc 

Call ClearCobj ( Cob j_recSelectLocBinNode , " locatn_view" ) 
Call ClearRelatedRollup 

'Need to add application required prefilters 
Call HandleAdhocRollup 

'Now let the CBX do the rest of the filtering 
Me . DoDef ault 

Call ProperEnabling 

End Sub 



' Location Lookup button is clicked 



Sub PBEFCbxeCountLoc_Click ( ) 

'Need to add application required prefilters 
Call HandleAdhocLocation 

'Now let the CBX do the rest of the filtering 

Me . DoDef ault 
End Sub 



When New is clicked, post the New Account and Location Window 



Sub btnAddNew_Click() 

Dim mystr_new as string 

App . GetString OAB_GSL_CASE_STS_NEW , mystr_new 
App . ExecuteMenu mystr_new, LCB_ACCT_LOC_MENU_OPTION 
End Sub 



' When a Rollup Row is clicked, show data and sync with detail 
form 



Sub clbCbxLocRollups_Click() 
Dim le As LEType 
Call FillLE ( le ) 
Call LEListClbClick( le ) 

tvwCountLoc . Clear 

Call ClearRelatedCountLoc 
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Call ClearCobj ( Cobj_recSelectLocBinNode , " locatn_view" ) 
Call lcbGetRollup () 
Call ProperEnabling 
End Sub 



' When a Location Row is clicked, show data and sync with detail 
form 



Sub clbCbxCountLocs_Click ( ) 

Call ClickOTM ( Cobj_recLocatnView, clbCbxCountLocs ) 

Call ProperEnabling 
End Sub 



Node Events 



Sub tvwCountLoc_Collapse (nodelD as Long) 
End Sub 

Sub tvwCountLoc_Expand (nodelD as Long) 
End Sub 

Sub tvwCountLoc_NodeClick (nodelD as Long ) 

Dim locBinNodeRec as New Record 

Set locBinNodeRec . RecordType = " locatn_view" 

locBinNodeRec . SetField " loc_ob j id " , 
CLng (tvwCountLoc . Key (nodelD) ) 

Cobj_recSelectLocBinNode . Fill locBinNodeRec 
Call ProperEnabling 

End Sub 



Click Remove button 



Sub btnRemove_Click () 

Dim newChildRec 
Dim locationBulkR 
Dim rollupRec 
Dim nodeLocationRec 



As New Record 

As New BulkRetrieve 

As Record 

As Record 



newChildRec .RecordType = "inv_locatn" 
Set rollupRec = Cobj_recLocRollup . Contents 

If rollupRec. GetField ( "use_type " ) = 0 Then ' CC count point 
If lcbActiveCCExists (rollupRec, " rollup2cycle_count " ) Then 
App.MsgBox LCB_CC_ROLLUP_ERR2 
Exit Sub 
End If 
End If 



Set nodeLocationRec = Cobj_recSelectLocBinNode . Contents 
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newChildRec. SetField "objid", 
nodeLocationRec . GetField ( " loc_obj id" ) 

nodeKeyRemoved = nodeLocationRec .GetField (" loc_obj id" ) 

' delete all children role from the parent 
Call lcb_Delete_obj_rol_itm ( newChildRec, rollupRec ) 

tvwCountLoc . Clear 
Call lcbGetRollup 0 
Call ProperEnabling 

End Sub 



Click ADD rollup button 



Sub btnAdd_Click() 
Dim le As LEType 
Call FillLE(le) 
Call LEListAdd( le ) 
Call ProperEnabling 

End Sub 



Click SAVE rollup button 



Sub btnReplace_Click ( ) 

Dim le As LEType 

Call FillLE (le) 

Call LEListReplace ( le ) 

Call ProperEnabling 
End Sub 



Click REMOVE rollup button 



Sub btnRemoveRollup_Click ( ) 



Dim 


locationBulkR 


As 


New BulkRetrieve 


Dim 


rollupRec 


As 


Record 


Dim 


MyBulkSav 


As 


New BulkSave 


Dim 


rollupList 


As 


List 


Dim 


rollup I tmRec 


As 


Record 


Dim 


index 


As 


Long 


Dim 


dbString 


As 


String 


Dim 


le As LEType 







Call FillLE ( le) 

Set rollupRec = Cob j_recLocRollup . Contents 

If rollupRec. GetField ("use_type") = 0 Then ' CC count point 
If lcbCCExists (rollupRec, "rollup2cycle_count " ) Then 
App . MsgBox LCB_CC_ROLLUP_ERRl 
Exit Sub 
End If 
End If 

locationBulkR. SetRoot rollupRec 

locationBulkR. TraverseFromRoot 0, "rollup2loc_rol_itm" 



15 



PATENT 



locationBulkR . RetrieveRecords 

Set rollupList = locationBulkR. GetRecordList (0) 

If rollupList. Count > 0 Then 

If App.MsgBox( LCB_ROLLUP_DELETE_VALID_MSG, cbYesNo, 

LE_CONFIRM_DELETE_DLG TITLE ) = cbidKFo Then 

Exit Sub 

End If 
End If 

' Actually delete it 

If rollupList .Count > 0 Then 

For index = 0 To rollupList . Count - 1 

Set rollupItmRec = rollupList . ItemBylndex ( index) 
MyBulkSav.DeleteRecord rollupItmRec 
Next index 
End If 

MyBulkSav.DeleteRecord rollupRec 
MyBulkSav . Save 

■ Tell any parent screen to delete the row 

If LEIsAChild( le ) Then 

le. f rm.NotifyParent msgLEListDelete 
Else 

Call LEEditNew( le ) 
End If 

' No need to save changes now 
Call LEClearDirty ( le ) 

' Remove the deleted item from the grid 

clbCbxLocRollups . RemoveSelected 
clbCbxLocRollups .Unselect 

tvwCountLoc . Clear 

Call ClearRelatedCountLoc 

Call ClearCobj { Cob j_recSelectLocBinNode , " locatn_view" ) 
Call ProperEnabling 
End Sub 

Sub SaveOther ( le As LEType ) 

If ZeroObjid( Cobj_recLocRollup . Contents ) Then 

grec_le . SetField "rollup_type" , 1 

grec_le . SetField "f ocus_type" , 22 8 
End If 

End Sub 



Add As Parent button is clicked 



Sub btnAddParent_Click ( } 
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Dim parentRec As Record 

Dim rollupRec As Record 

Set parentRec = Cobj_recLocatnView. Contents 

5 Set rollupRec = Cobj_recLocRollup . Contents 

If rollupRec. GetField("use_type") = 0 Then ' CC count point 
If lcbActiveCCExi st s (rollupRec, " rollup2cycle_count " ) Then 
App.MsgBox LCB_CC_R0LLUP_ERR2 
10 Exit Sub 

End If 
End If 

If rollupRec. GetField ( "use_type " ) = 0 Then 
15 Dim parentLocRec As New Record 

Set parentLocRec. RecordType = "inv_locatn" 
parentLocRec. SetField "objid", 
parentRec . GetField ( " loc_ob j id" ) 

20 

Call lcb_Validate Parent ( parentRec, rollupRec, 
parentLocRec ) 

If lcb_InOtherInventoryRollup (parentLocRec, rollupRec) 

25 Then 

Exit Sub 
End If 
End If 

30 nodX = tvwCountLoc . Add ( , 

, CStr (parentRec .GetField ( "loc_obj id" ) ) 

, parentRec .GetField ( " location_name" ) , imageVal , 

selectedlmageVal ) 

If parentRec. GetField ("active") = 0 Then 
35 tvwCountLoc. SetltemOverlay Image nodX, 1 

End If 

Dim Bulks As New BulkSave 
Dim newRoleRec As New Record 
40 newRoleRec .RecordType = " loc_rol_itm" 

newRoleRec .SetField "path_type", 0 
newRoleRec .SetField "depth", 0 
Bulks . InsertRecord newRoleRec 

Bulks .RelateRecordsToID newRoleRec, " inv_locatn" , 
45 parentRec. GetField ("loc_obj id" ) , "parent2inv_locatn" 
Bulks .RelateRecordsToID newRoleRec, "inv_locatn" , 
parentRec. GetField ("loc_obj id") , "child2inv_locatn" 

Bulks .RelateRecords newRoleRec, rollupRec, 

" loc_itm2rollup" 
50 BulkS . Save 

Dim locBinNodeRec as New Record 
Set locBinNodeRec . RecordType = " locatn_view" 
Set locBinNodeRec = parentRec . Copy 
55 Cob j_recSelectLocBinNode. Fill locBinNodeRec 

'need a method to set selected node! 1 ! ! 

tvwCountLoc . SetSelectedltem 
CStr (parentRec .GetField ( " loc_obj id" ) ) 

60 

Call ProperEnabling 
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End Sub 



Add As Sibling button is clicked 



Sub btnAddSibling_Click() 

'Get the selected node record from database and the Selected 
Build Hierarchy location (s) 







as Record 


Dim 


locBuildList 


as List 


Dim 


locBuildObj idList 


as New List 


Dim 


nodeLocList 


as List 


Dim 


nodeLocRec 


as Record 


Dim 


rollupRec 


as Record 


Dim 


locBuildRec 


as Record 


Dim 


loclndex 


as Long 


Dim 


locationBulkR 


as New BulkRetrieve 


Dim 


parentDepth 


As Long 


Dim 


nodeRolList 


As List 


Dim 


nodeRolRec 


As Record 


Dim 


parentOf NodeLocRec 


As New Record 


Set 


nodeLocationRec = 


Cobj recSelectLocBinNode . Contents 


Set 


rollupRec = Cobj_r 


ecLocRollup . Contents 



If rollupRec. GetField ( "use_type" ) = 0 Then ' CC count point 
If lcbActiveCCExists (rollupRec, "rollup2cycle_count " ) Then 
App.MsgBox LCB_CC_ROLLUP_ERR2 
Exit Sub 
End If 
End If 

locBuildObj idList . I temType = "long" 

Set locBuildList = clbCbxCountLocs . SelectedList 

locBuildList. ExtractList locBuildObj idList , "loc_objid" 

locationBulkR. SimpleQuery 0, "inv_locatn" 
locationBulkR. AppendFilter 0, "objid", cbEqual, 

nodeLocationRec . GetField ( " loc_ob j id" ) 

locationBulkR. SimpleQuery 1, "inv_locatn" 
locationBulkR. AppendFilter 1, "objid", cbln, 

locBuildObj idList 

locationBulkR. SimpleQuery 2, " loc_rollup_v" 
locationBulkR. AppendFilter 2, "child_ob j id" , cbEqual, 

nodeLocationRec . GetField ( " loc_ob j id" ) 

locationBulkR. AppendFilter 2, "path_type", cbEqual, 0 
locationBulkR. AppendFilter 2, "rollup_obj id" , cbEqual, 

rollupRec .GetField ( "objid" ) 

locationBulkR. RetrieveRecords 

Set nodeLocList = locationBulkR . GetRecordList ( 0) 
Set locBuildList = locationBulkR. GetRecordList (1) 
Set nodeRolList = locationBulkR .GetRecordList (2) 

'If nodeRolList . Count = 1 Then 

Set nodeRolRec = nodeRolList . ItemBylndex (0) 
If nodeRolRec. GetField ("depth") > 0 Then 

parentDepth = nodeRolRec . GetField ( "depth" ) - 1 
Else 
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App.MsgBox LCB_PARENT_ERR_BUILD_HIER 
' Exit Sub 

End If 
1 Else 

App.MsgBox LCB_PARENT_ERR_BUILD_HIER 
Exit Sub 
' End If 

If nodeRolList .Count > 0 Then 

Set nodeRolRec = nodeRolList . ItemBylndex (0) 
If nodeRolRec. GetField( "depth") > 0 Then 

parentDepth = nodeRolRec . GetField ( "depth" ) - 1 
Else 

App . MsgBox LCB_PARENT_ERR_BUILD_HIER 
Exit Sub 
End If 
Else 

App . MsgBox LCB_PARENT_ERR_BUILD_HIER 
Exit Sub 
End If 

'Update the new child to have the same parent as selected node 
If nodeLocList . Count = 1 Then 

Set nodeLocRec = nodeLocList . ItemBylndex (0) 
Set parentOf NodeLocRec .RecordType = "inv_locatn" 
parentOfNodeLocRec . SetField "ob j id" , 
nodeRolRec . GetField { "parent_obj id" ) 

For loclndex = 0 to locBuildList . Count - 1 

Set locBuildRec = locBuildList . ItemBylndex (loclndex) 

' check if meet all other conditions 
If lcb_MeetAHRollupConditions ( " loc_rollup_v" , 
parentOfNodeLocRec, locBuildRec, rollupRec ) Then 

35 • Create a direct child loc_rol_itm and copy all 

children as indirect children to the parents 

Call lcb_AddRolItm ( parentOfNodeLocRec, 
locBuildRec, rollupRec, parentDepth ) 

40 nodX = 

tvwCountLoc . Add (CStr (nodeRolRec . GetField ( "parent_obj id" ) ) , tvwChi 
Id, CStr (locBuildRec. GetField ( "obj id" ) ) , 

locBuildRec .GetField ( " location_name" ) , imageVal, selectedlmageVal) 
If locBuildRec. GetField ("active") = 0 Then 
45 tvwCountLoc . SetltemOverlaylmage nodX, 1 

End If 

End If 
Next loclndex 

50 

Call ProperEnabling 
End If 



30 



60 



Add As Child button 



Sub btnAddChild Click () 
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'Get the selected node record from database and the Selected 





Build Hierarchy location (s) 








Dim nodeLocationRec 


as 


Record 


5 


Dim locBuildList 


as 


N^List 




Dim locBuildOb j idList 


as 






Dim nodeLocList 




, 




Dim nodeLocRec 


as 


Record 




Dim rollupRec 


as 


Record 


10 


Dim locBuildRec 


as 


Record 




Dim loclndex 




Long 




Dim locationBulkR 


as 


New BulkRetrieve 




Dim parentDepth 


As 


Long 




Dim nodeRolList 


As 


List 


15 


Dim nodeRolRec 


As 


Record 



Set nodeLocationRec = Cobj_recSelectLocBinNode . Contents 
Set rollupRec = Cobj_recLocRollup . Contents 

20 If rollupRec. GetField ( "use_type" ) = 0 Then 'CC count point 

If lcbActiveCCExists (rollupRec, "rollup2cycle_count" ) Then 
App . MsgBox LCB_CC_ROLLUP_ERR2 
Exit Sub 
End If 
25 End If 

locBuildObj idList. ItemType = "long" 

Set locBuildList = clbCbxCountLocs . SelectedList 

locBuildList .ExtractList locBuildObj idList , "loc_objid" 

30 

locationBulkR. SimpleQuery 0, "inv_locatn" 
locationBulkR. AppendFilter 0, "objid", cbEqual, 

nodeLocationRec . GetField { " loc_obj id" ) 

locationBulkR. SimpleQuery 1, "inv_locatn" 
35 locationBulkR. AppendFilter 1, "objid", cbln, 

locBuildObj idList 

locationBulkR. SimpleQuery 2, "loc_rollup_v" 
locationBulkR. AppendFilter 2, "child_obj id" , cbEqual, 

nodeLocationRec .GetField ( "loc_obj id" ) 
40 locationBulkR. AppendFilter 2, "path_type", cbEqual, 0 

locationBulkR. AppendFilter 2, "rollup_obj id" , cbEqual, 

rollupRec .GetField ( "objid" ) 

locationBulkR. RetrieveRecords 
45 Set nodeLocList = locationBulkR. GetRecordList (0) 

Set locBuildList = locationBulkR . GetRecordList ( 1 ) 
Set nodeRolList = locationBulkR . GetRecordList (2 ) 

If nodeRolList -Count = 1 Then 
50 Set nodeRolRec = nodeRolList . ItemBy Index (0) 

parentDepth = nodeRolRec . GetField ( "depth" ) 
Else 

parentDepth = 0 
End If 

55 

'Update the child to have the same parent 
If nodeLocList .Count = 1 Then 

Set nodeLocRec = nodeLocList . ItemBy Index ( 0 ) 
For loclndex = 0 to locBuildList . Count - 1 
60 Set locBuildRec = locBuildList . ItemBylndex ( loclndex) 
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' check if meet all other conditions 
If lcb_MeetAllRollupConditions ( " loc_rollup_v" , 
nodeLocRec, locBuildRec, rollupRec ) Then 

' Create a direct child loc_rol_itm and copy all 
children as indirect children to the parents 

Call lcb_AddRolItm ( nodeLocRec, locBuildRec, 
rollupRec, parentDepth ) 

nodX = 

tvwCountLoc . Add (CStr (nodeLocRec . GetField ( "obj id" ) ) , tvwChild, 
CStr (locBuildRec .GetField ( "obj id" ) ) , 

locBuildRec .GetField ( "location_name" ) , imageVal , selectedlmageVal) 
If locBuildRec. GetField ("active") = 0 Then 

tvwCountLoc .SetltemOverlay Image nodX, 1 
End If 

End If 

Next loc Index 

Call ProperEnabling 
End If 

End Sub 



New button is clicked - Clear button 



Sub btnNew_Click () 
tvwCountLoc .Clear 
Call ClearRelatedCountLoc 
Call ClearRelatedRollup 

Call ClearCobj ( Cobj_recSelectLocBinNode , " locatn_view" ) 
Call ProperEnabling 
End Sub 

Sub btnUseDone_Click () 

Set grec_le = Cobj_recLocRollup . Contents 

Me .NotifyParent msgLEListMoveRecord, "rollup" 

Me . Close 

End Sub 



Show a single related record 



Sub MoveRecord ( MessageStr As String ) 
End Sub 



Message handler 



Sub Message (ByVal MessageNum as Long, ByVal MessageStr as 
String) 

Dim le As LEType 
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Call FillLE(le) 

Select Case MessageNum 

Case msgLEListCheckRequired 
Call CheckRequired 

Case msgLEEditMakeChild 

Call LESetlsAChild ( le. True ) 

Case msgLEListSaveOther 
Call SaveOther ( le ) 

Case msgLEListPreFilter 
Select Case MessageStr 
Case "rollup" 

CBX_SelectLocRollup. ClearPreFilter "objid", ' 
CBX_SelectLocRollup. AppendPreFilter 
"" , "objid", "is equal to" , grec_le .GetField ( "obj id" ) 
btnCbxf Rollup. Enabled = TRUE 
btnCbxf Rollup. Value = 1 
'Me.EnableControls "btnUseDone" 
' btnUseDone . Default = TRUE 
CBX_SelectLocRollup . SetSelectedByld 
grec_le . GetField ( " obj id" ) 

Dim locRollupRec As New Record 
If 

CBX_SelectLocRollup.GetSelected (locRollupRec) Then 

Cob j_recLocRollup . Fill locRollupRec 

tvwCountLoc . Clear 

Call ClearRelatedCountLoc 

Call ClearCobj ( Cob j_recSelectLocBinNode , 



"locatn_view" ) 



Call lcbGetRollup () 
Call ProperEnabling 
End If 

Case "inv_locatn" 

Dim recInvLocatn as Record 
Set recInvLocatn = grec_le 

If recInvLocatn. GetField ( " location_name " ) 



Then 



CBX_SelectLocRollup . ClearPreFilter " " , 
"rollup21oc_rol_itm:child2inv_locatn: location_name" 

CBX_SelectLocRollup . AppendPreFilter " " , 
"rollup21oc_rol_itm: child2inv_locatn: location_name" , "is equal 
to" , recInvLocatn . GetField ( " location_name" ) 
End If 

btnCbxf Rollup. Value = 1 
Me.EnableControls "btnUseDone" 
btnUseDone. Default = TRUE 

Case " cycle_setup" 

Dim recCCRollup as Record 
Set recCCRollup = grec_le 
CBX_SelectLocRollup. ClearPreFilter 

"usage_type" , "" 

CBX_SelectLocRollup. AppendPreFilter 
"usage_type" , "use_type" , "is equal to", 0 

If recCCRollup. GetField ("name") <> "" Then 
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CBX_SelectLocRollup.EnableAdhoc TRUE, TRUE 
CBX_SelectLocRollup . SetAdhocCel IText 
"name" , recCCRollup.GetField ( "name " ) 
End If 

btnCbxfRollup .Value = 1 
Me.EnableControls "btnUseDone " 
btnUseDone .Default = TRUE 

Case "count_setup" 

CBX_SelectLocRollup . ClearPreFilter 

"usage_type" , "" 

CBX_SelectLocRollup . AppendPreFilter 
"usage_type" , "use_type", "is equal to", 0 
btnCbxfRollup .Value = 1 
Me.EnableControls "btnUseDone" 
btnUseDone .Default = TRUE 

End Select 

Case msgLEEditMoveRecord 

Call MoveRecord ( MessageStr ) 

Case Else 

If Not LEListMsgHandler ( MessageNum, MessageStr, le ) 
Then Call ASSERT ( False, BadMsgMsg ( Me. ID, MessageNum ) ) 
End Select 

End Sub 



Functions and Routines 



' Display the location hierarchy for the selected rollup 

Sub IcbGetRollup () 

Dim BulkR As New BulkRetrieve 

Dim rollupLocList As List 

Dim childLocRec As Record 

Dim childLocationlndex As Long 

Dim locBinNodeRec as New Record 

Set locBinNodeRec -RecordType = "locatn_view" 

BulkR. SimpleQuery 0, "loc_rollup_v" 

BulkR. AppendFi Iter 0, "rollup_obj id" , cbEqual , CGetField ( 
Cobj_recLocRollup, "objid" ) 

BulkR. AppendFilter 0, "path_type", cbEqual, 0 
BulkR. AppendSort 0, "depth", cbAscending 
BulkR. RetrieveRecords 

Set rollupLocList = BulkR. GetRecordList (0) 
If rollupLocList . Count > 0 Then 

For childLocationlndex = 0 to rollupLoclist . Count - 1 

Set childLocRec = 
rollupLoclist . ItemBylndex (childLocationlndex) 
If childLocationlndex = 0 Then 
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nodX = tvwCountLoc .Add ( , 
, CStr (childLocRec . GetField ( "parent_obj id" ) ) 
, chi IdLocRec . GetField ( "parent_name " ) , imageVal , 
selectedlmageVal) 
5 If childLocRec. GetField ("parent_active") = 0 Then 

tvwCountLoc. Set ItemOverlay Image nodX, 1 
End If 

'Set the parent node as the selected node. Need this 
10 to enable/disable controls. 

locBinNodeRec .SetField "loc_objid" , 
childLocRec .GetField ( "parent_obj id" ) 

Cobj_recSelectLocBinNode . Fill locBinNodeRec 
'set selected node 
15 tvwCountLoc . SetSelectedltem 

CStr ( childLocRec . GetField ( "parent_obj id" ) ) 

Else 

nodX = 

20 tvwCountLoc. Add (CStr (childLocRec. GetField ( "parent_obj id") ) , tvwCh 
ild, CStr (childLocRec. GetField ("child_obj id") ) , 
childLocRec .GetField ( "child_name" ) , imageVal , selectedlmageVal) 
If childLocRec. GetField ("child_active") = 0 Then 
tvwCountLoc . Set ItemOverlay Image nodX , 1 
25 End If 

If childLocRec. GetField ("depth") <= nodeDepthRemoved 

Then 

tvwCountLoc . Expand 
30 CStr (childLocRec. GetField ("parent_obj id") ) , 2 
End If 
End If 
Next 
Else 

35 Cobj_recSelectLocBinNode . Fill locBinNodeRec 

End If 



40 



nodeKeyRemoved = 
nodeDepthRemoved 



End Sub 



Sub lcb_Delete_obj_rol_itm ( newChildRec As Record, rollupRec As 
Record) 

Dim MyBulkR As New BulkRetrieve 

Dim MyBulkSav As New BulkSave 

Dim nodeCList As List 

Dim rolItmObjidList As New List 

Dim childLocObjidList As New List 

Dim rolItemRec As Record 

Dim deleteList As List 

Dim index As Long 

childLocObjidList. ItemType = "long" 
childLocObjidList . AllowDuplicates = FALSE 

'Get the selected nodes children 

MyBulkR. SimpleQuery 0, "loc_rollup_v" 

MyBulkR. AppendFilter 0, "parent_obj id" , cbEqual, 

newChildRec. GetField ( "objid" ) 



24 



PATENT 



MyBulkR.AppendFilter 0, "rollup_obj id" , cbEqual , 
rollupRec .GetField ( "objid" ) 
MyBulkR . RetrieveRecords 

5 Set nodeCList = MyBulkR. GetRecordList (0) 

If nodeCList. Count > 0 Then 

nodeCList .ExtractList childLocObj idList , "child_objid" 
End If 

10 'Include the selected node in the list to delete 

childLocObj idList. Appendltem newChildRec . GetField ( "objid" ) 

'Now retrieve the children's children 

MyBulkR. SimpleQuery 0, " loc_rollup_v" 
15 MyBulkR.AppendFilter 0, "child_obj id" , cbln, 

childLocObj idList 

MyBulkR.AppendFilter 0, "rollup_obj id" , cbEqual, 
rollupRec .GetField ( "objid" ) 

MyBulkR . RetrieveRecords 

20 

Set deleteList = MyBulkR. GetRecordList (0) 

If deleteList .Count > 0 Then 

rolItmObj idList . ItemType = "long" 

deleteList .ExtractList rolItmObj idList , "objid" 

25 

'Get the removed node record to get its depth so that 
the Tree can be 

'Expanded out to this depth when it is refreshed 
Dim removedNodeLocRec as Record 

30 For index = 0 to deleteList . Count - 1 

Set removedNodeLocRec = 
deleteList . ItemBylndex { index) 

If CLng (removedNodeLocRec. GetField ("child_obj id" ) ) = 
nodeKeyRemoved AND CLng (removedNodeLocRec .GetField ( "path_type" ) ) 
35 =0 Then 

nodeDepthRemoved = 
CLng (removedNodeLocRec .GetField ( "depth" ) ) 
Exit For 
End If 
40 Next 



MyBulkR. SetRoot rollupRec 

MyBulkR . TraverseFromRoot 0, "rollup21oc_rol_itm" 
MyBulkR.AppendFilter 0, "objid", cbln, rolItmObj idList 

MyBulkR . RetrieveRecords 

Set deleteList = MyBulkR. GetRecordList (0) 
For index = 0 to deleteList . Count - 1 

Set rolItemRec = deleteList . ItemBylndex (index) 

MyBulkSav.DeleteRecord rolItemRec 
Next index 
MyBulkSav . Save 
End If 



Function lcb_lsltself ( newParentRec As Record, newChildRec As 
Record ) As Boolean 



Dim dbString 
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lcb_lsltself = False 

If newChildRec.GetFieldC'objid") = 
newParentRec . GetField { "obj id" ) Then 

Set LCB_IN_SAME_ROLLUP_ERR = New GlobalString 
If App . GetString (LCB_STR_SAME_ROLLUP_ERR, dbString, 
newChildRec. GetField ("location_name") ) Then 

LCB_IN_SAME_ROLLUP_ERR . SetValue dbString 
Else 

dbString = newChildRec . GetField (" location_name " ) & " 
is already in this location rollup, please select another 
location . " 

LCB_IN_SAME_ROLLUP_ERR . SetValue dbString 
End If 

App.Msgbox LCB_IN_SAME_ROLLUP_ERR 

lcb_lsltself = True 
End If 

End Function 

Function lcb_IsChild ( pList As List, newChildRec As Record ) As 
Boolean 

Dim ind As Integer, MyList As List, dbString As String 
lcb_IsChild = False 

ind = P List.FindFirstIndex( newChildRec.GetFieldC'objid"), 
"child_obj id" ) 

If Not ind = -1 Then 

Set LCB_CHILD_ROLLUP_ERR = New GlobalString 
If App. GetString (LCB_STR_CHILD_ROLLUP_ERR, dbString, 
newChildRec. GetField ("location_name") ) Then 

LCB_CHILD_ROLLUP_ERR . SetValue dbString 
Else 

dbString = newChildRec . GetField <" location_name" ) + " 
is already a direct or indirect child location, please select 
others . " 

LCB_CHILD_ROLLUP_ERR . SetValue dbString 
End If 

App.Msgbox LCB_CHILD_ROLLUP_ERR 

lcb_IsChild = True 
Exit Function 

End If 

End Function 

Function lcb_IsParent ( pList As List, newParentRec As Record ) 
As Boolean 

Dim ind As Integer, MyList As List, message As String 
Dim dbString As String 

lcb_IsParent = False 
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ind = pList .FindFirstlndex ( newParentRec .GetField ( "obj id" ) ; 
"parent_obj id" ) 

If Not ind = -1 Then 

Set LCB_PARENT_ROLLUP_ERR = New GlobalString 
If App.GetString (LCB_STRJ?AR_ROLLUP_ERR, dbString, 
newParentRec. GetField ("location_name") ) Then 

LCB_PARENT_ROLLUP_ERR . SetValue dbString 
Else 

dbString = newParentRec .GetField ( "location_name" ) + " 
is already a direct or indirect parent location, please select 
others . " 

LCB_PARENT_ROLLUP_ERR . SetValue dbString 
End If 

App.Msgbox LCB_PARENT_ROLLUP_ERR 

lcb_IsParent = True 
Exit Function 
End If 

End Function 

Function lcb_Is Somewhere InRollup ( newChildRec As Record ) As 
Boolean 

Dim dbString As String 

Dim ind As Long 

lcb_IsSomeWhereInRollup = False 
ind = -1 

ind = invRollupList. FindFirstlndex ( 
newChildRec. GetField ("obj id" ) , "child_obj id" ) 

If ind > -1 Then 

Set LCB_IN_SAME_ROLLUP_ERR = New GlobalString 
If App.GetString {LCB_STR_SAME_ROLLUP_ERR, dbString, 
newChildRec. GetField ( " location__name" ) ) Then 

IiCB_IN_SAME_ROLLUP_ERR . SetValue dbString 
Else 

dbString = newChildRec .GetField ( "location_name" ) & " 
is already in this location rollup, please select another 
location. " 

LCB_IN_SAME_ROLLUP_ERR . SetValue dbString 
End If 

App . Msgbox LCB_IN_SAME_ROLLUP_ERR 

lcb_IsSomeWhereInRollup = True 
End If 

End Function 

Function lcb_InOtherInventoryRollup (newChildRec As Record, 
rollupRec As Record) As Boolean 

Dim dbString As String 

Dim ind As Long 

Dim rollupItemRec As Record 
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lcb_InOtherInventoryRollup = False 
ind = -1 

ind = otherlnvRollupParentList .FindFirstlndex* 
newChildRec .GetField ( "obj id" ) , "parent_obj id" ) 

If ind > -1 Then 

Set rollupItemRec = 
otherlnvRollupParentList . ItemBylndex (ind) 

Set LCB_INV_TYPE_ROLLUP_ERR = New GlobalString 
If App.GetString (LCB_STR_INV_ROLLUP_ERR, dbString, 
newChildRec. GetField ( "location_name") ) Then 

LCB_INV_TYPE_ROLLUP_ERR . SetValue dbString 
Else 

dbString = newChildRec . GetField (" location_name " ) 
is already in Inventory Rollup " & 
rollupItemRec .GetField ( "rollup_name" ) 

LCB_INV_TYPE_ROLLUP_ERR . SetValue dbString 
End If 

App -Msgbox LCB_INV_TYPE_ROLLUP_ERR 

lcb_InOtherInventoryRollup = True 
Exit Function 
End If 

ind = -1 

ind = otherlnvRollupChildList . FindFirstlndex ( 
newChildRec. GetField ("obj id" ) , "child_obj id" ) 

If ind > -1 Then 

Set rollupItemRec = 
otherlnvRollupChildList . ItemBylndex ( ind) 

Set LCB_INV_TYPE_ROLLUP_ERR = New GlobalString 
If App.GetString (LCB_STR_INV_ROLLUP_ERR ; dbString, 
newChildRec. GetField ("location_name") ) Then 

LCB_INV_TYPE_ROLLUP_ERR . SetValue dbString 
Else 

dbString = newChildRec . GetField (" location_name" ) 
is already in Inventory Rollup " & 
rollupItemRec .GetField ( "rollup_name " ) 

LCB_INV_TYPE_ROLLUP_ERR . SetValue dbString 
End If 

App . Msgbox LCB_INV_TYPE_ROLLUP_ERR 

lcb_InOtherInventoryRollup = True 
End If 

End Function 

Sub lcb_AddRolItm ( newParentRec As Record, newChildRec As 
Record, rollupRec As Record, parentDepth as Long ) 

Dim BulkS As New BulkSave, i As Integer, j As Integer, 
currParent As Record, currChild As Record, pObjid As Long, 
cObj id As Long 

For i = 0 To gparentPList . Count 

If i = gparentPList . Count Then 
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pObjid = newParentRec . GetField ( "objid" ) 
Else 

Set currParent = gparentPList . ItemBy Index (i) 
pObjid = currParent. GetField ( "parent_ob j id " ) 
End If 

For j = 0 To gchildCList .Count 
If j = gchildCList. Count Then 

cObjid = newChildRec .GetField ( "objid" ) 
Else 

Set currChild = gchildCList . ItemBylndex (j) 
cObjid = currChild. GetField ( " child_ob j id" ) 
End If 

Dim newRoleRec As New Record 

newRoleRec .RecordType = " loc_rol_itm" 

If i = gparentPList .Count And j = gchildCList . Count 

Then 

newRoleRec. SetField "path_type", 0 
newRoleRec. SetField "depth", parentDepth + 1 
Else 

newRoleRec. SetField "path_type", 1 
End If 

Bulks. InsertRecord newRoleRec 

Bulks .RelateRecordsToID newRoleRec, " inv_locatn" , 
pObjid, "parent2inv_locatn" 

BulkS. RelateRecordsToID newRoleRec, " inv_locatn" , 
cObjid, "child2inv_locatn" 

Bulks .RelateRecords newRoleRec, rollupRec, 

" loc__i tm2 rol lup " 
Next j 



Bulks . Save 



End Sub 

Sub lcb_ValidateParent ( currParent As Record, rollupRec As 
Record, currParentLocRec As Record ) 

Dim MyBulkR As New BulkRetrieve 

Dim currParentlocList As List 

Set otherlnvRollupParentList = New List 
Set otherlnvRollupChildList = New List 
otherlnvRollupParentList.ItemType = "record" 
otherlnvRollupChildList. ItemType = "record" 

MyBulkR. SimpleQuery 0, " loc_rollup_v" 
MyBulkR. AppendFilter 0, "child_obj id" , cbEqual, 

currParent . GetField ( "loc_obj id" ) 

MyBulkR. AppendFilter 0, "usage_type" , cbEqual, 0 
MyBulkR. AppendFilter 0, "path_type " , cbEqual, 0 
MyBulkR. AppendFilter 0, " rollup_ob j id" , cbNotEqual, 

rollupRec . GetField ( "obj id" ) 

MyBulkR. SimpleQuery 1, " loc_rollup_v" 

MyBulkR. AppendFilter 1, "parent_obj id" , cbEqual, 

currParent .GetField ( "loc_obj id" ) 

MyBulkR. AppendFilter 1, "usage_type " , cbEqual, 0 
MyBulkR. AppendFilter 1, "path_type", cbEqual, 0 
MyBulkR. AppendFilter 1, "rollup_obj id" , cbNotEqual, 

rollupRec .GetField ( " obj id" ) 
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MyBulkR . SimpleQuery 2, " inv_locatn " 
MyBulkR.AppendFilter 2, "objid", cbEqual, 
currParent . GetField ( " loc_obj id" ) 

5 

MyBulkR . RetrieveRecords 

Set otherlnvRollupChildList = MyBulkR. GetRecordList (0) 
Set otherlnvRollupParentList = MyBulkR . GetRecordList ( 1) 
10 Set currParentLocList = MyBulkR . GetRecordList (2 ) 

If currParentLocList . Count = 1 Then 

Set currParentLocRec = currParentLocList . ItemBylndex (0) 
End If 



Sub lcb_GetDataToValidateAdd ( viewName As String, currParent As 
Record, currChild As Record, rollupRec As Record ) 

Dim mychildCList As New List, mychildPList As New List, 
myparentCList As New List, myparentPList As New List 
Dim rollup__objid As Long, rollup_type As Long 
Dim MyBulkR As New BulkRetrieve 

Set invRollupList = New List 
invRollupList.ItemType = "record" 

Set otherlnvRollupParentList = New List 
Set otherlnvRollupChildList = New List 
otherlnvRollupParentList . ItemType = "record" 
otherlnvRollupChildList. ItemType = "record" 

mychildCList. ItemType = "record" 
mychildPList . ItemType = "record" 
myparentCList . ItemType = "record" 
myparentPList . ItemType = "record" 
Set gchildCList = mychildCList 
Set gchildPList = mychildPList 
Set gparentCList = myparentCList 
Set gparentPList = myparentPList 



MyBulkR . SimpleQuery 0 , " loc_rollup_ 
MyBulkR.AppendFilter 0, "parent_obj id" 
currChild. GetField ( "objid" 

MyBulkR.AppendFilter 0, 
rollupRec. GetField ( "objid' 
MyBulkR. SimpleQuery 1, 
MyBulkR.AppendFilter 1, 
currChild. GetField ( "objid 1 

MyBulkR.AppendFilter 1, 
rollupRec .GetField ( "objid 1 
MyBulkR. SimpleQuery 2, 
MyBulkR.AppendFilter 2, 
currParent .GetField ( "objid") 

MyBulkR.AppendFilter 2, "rollup_obj id ,! 
rollupRec . GetField ( "obj id" ) 

MyBulkR. SimpleQuery 3, " loc_rollup_v' 
MyBulkR.AppendFilter 3, " child_ob j id" , 
currParent . GetField ( "obj id" ) 

MyBulkR.AppendFilter 3, "rollup_obj id 1 
rollupRec .GetField ( "obj id" ) 



) 

" rollup_obj id' 



" loc_rollup_v 
"child_obj id" 



" rollup_objid 



"loc_rollup_ 
"parent_obj L< 



, cbEqual , 
, cbEqual, 

cbEqual , 
, cbEqual, 

, cbEqual, 
, cbEqual , 

cbEqual , 
, cbEqual , 
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MyBulkR.AppendFilter 3, "depth", cbNotEqual , 0 

MyBulkR. SimpleQuery 4, " loc_rollup_v" 
MyBulkR.AppendFilter 4, " child_obj id" , cbEqual, 
currChild . GetField ( " obj id" ) 

MyBulkR.AppendFilter 4, "rollup_obj id" , cbEqual, 
rollupRec .GetField ( "obj id" ) 

MyBulkR.AppendFilter 4, "path_type", cbEqual, 0 

MyBulkR. SimpleQuery 5, " loc_rollup_v" 
MyBulkR.AppendFilter 5, "child_obj id" , cbEqual, 

currChild .GetField ( " obj id" ) 

MyBulkR.AppendFilter 5, "usage_type " , cbEqual, 0 
MyBulkR.AppendFilter 5, "path_type", cbEqual, 0 
MyBulkR.AppendFilter 5, "rollup_obj id" , cbNotEqual, 

rollupRec .GetField ( "obj id" ) 

MyBulkR. SimpleQuery 6, " loc_rollup_v" 
MyBulkR.AppendFilter 6, "parent_ob j id" , cbEqual, 

currChild . GetField { " obj id" ) 

MyBulkR.AppendFilter 6, "usage_type" , cbEqual, 0 
MyBulkR.AppendFilter 6, "path_type", cbEqual, 0 
MyBulkR.AppendFilter 6, "rollup_obj id" , cbNotEqual, 

rollupRec. GetField ( "obj id") 

MyBulkR . RetrieveRecords 

Set mychildCList = MyBulkR . GetRecordList ( 0 ) 

If mychildCList -Count > 0 Then Set gchildCList = mychildCLis 
Set mychildPList = MyBulkR . GetRecordList ( 1 ) 

If mychildPList. Count > 0 Then Set gchildPList = mychildPLis 

Set myparentCList = MyBulkR. GetRecordList (2) 
If myparentCList .Count > 0 Then Set gparentCList = 
myparentCList 

Set myparentPList = MyBulkR. GetRecordList (3) 
If myparentPList .Count > 0 Then Set gparentPList = 
myparentPList 

Set invRollupList = MyBulkR. GetRecordList (4) 

Set otherlnvRollupChildList = MyBulkR. GetRecordList (5) 

Set other InvRollupParentLi st = MyBulkR . GetRecordList (6) 



Function lcb_MeetAllRollupConditions ( rollupView As String, 
newParentRec As Record, newChildRec As Record, rollupRec As 
Record ) As Boolean 

lcb_MeetAllRollupConditions = False 

If lcb_lsltself ( newParentRec, newChildRec) Then Exit 
Function 

Call lcb_GetDataToValidateAdd ( rollupView, newParentRec, 
newChildRec, rollupRec ) 

If rollupRec -GetField ( "use_type" ) = 0 Then 
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If lcb_InOtherInventoryRollup (newChildRec , rollupRec) 

Then 

Exit Function 
End If 
End If 

If lcb_IsChild ( gparentCList, newChildRec) Then Exit 
Function 'is it a child of node 

If lcb_IsParent ( gparentPList , newChildRec) Then Exit 
Function 'is it a child of node's parent (grandparents ) 

'If we made it this far, then we know the new Child location is 
not a direct or indirect link in either the focus location's 
'child list or parent list. We also no it's not in some other 
Inventory Rollup. 

'Need to check if this new child location exists in some other 
branch 

'of this rollup hierarchy now. 

If lcb_IsSomeWhereInRollup ( newChildRec ) Then Exit Function 

lcb_MeetAllRollupConditions = True 

End Function 
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WHAT IS CLAIMED IS: 



y A method of creating a relational database having a plurality of 
objects each having an associated data; said method comprising: 

forming a first database table having a plurality of entries, each entry 
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representing an object with an associated data; and 

forming a second database table having a plurality of entries , each entry 
defining a relationship between said plurality of objects. 



relationships is defined between a pair of said objects. 

3 . The method of claim 2 wherein said relationship is between a 
parent and a child. 



4. The method of claim 1 wherein said plurality of relationships 
include single parent and multiple parent hierarchies. 

5. The method of claim 1 wherein said plurality of relationships 
20 include tree and graph type structures. 

6. The method of claim 1 further comprising: 

forming a third database table, said third database table having a 
plurality of entries, each entry being a summary of said data from a plurality of 
25 entries from said first database table. 
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2. 



The method of claim 1 wherein each of said plurality of 
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7. The method of claim 5 wherein each entry in said second 
database table defines a relationship between a pair of said objects. 
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The method of claim 7 wherein said relationship is between a 



parent and a child. 



9. The method of claim 8 wherein each entry in said second 
database table further defines a direct or indirect parent-child relationship. 
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10. The method of claim 8 wherein each entry in said second 
database table further comprises a definition of a database structure to which 
said relationship is a part thereof. 
5 / 

\\< An article of manufacture comprising: 
/ i computer usable medium having a computer readable program code 
embodied therein configured to cause a computer to form a first database table 
having a plurality of entries, each entry representing an object with an 
10 associated data; and 

computer readable program code embodied therein configured to cause a 
computer to form a second database table having a plurality of entries , each 
entry defining a relationship between said plurality of objects. 

15 12. The article of manufacture of claim 1 1 wherein each of said 

plurality of relationships is defined between a pair of said objects. 

13. The article of manufacture of claim 12 wherein said relationship 
is between a parent and a child. 

20 

14. The article of manufacture of claim 1 1 wherein said plurality of 
relationships include single parent and multiple parent hierarchies. 

1 5 . The article of manufacture of claim 1 1 wherein said plurality of 
25 relationships include tree and graph type structures. 

16. The article of manufacture of claim 1 1 further comprising: 
computer readable program code embodied therein configured to cause a 

computer to form a third database table, said third database table having a 
30 plurality of entries, each entry being a summary of said data from a plurality of 
entries from said first database table. 

17. The article of manufacture of claim 1 5 wherein each entry in said 
second database table defines a relationship between a pair of said objects. 
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1 8 . The article of manufacture of claim 1 7 wherein said relationship 
is between a parent and a child. 



second database table further defines a direct or indirect parent-child 
relationship. 

20. The article of manufacture of claim 1 8 wherein each entry in said 
10 second database table further comprises a definition of a database structure to 
which said relationship is a part thereof. 



retrieval of multiple simultaneous hierarchical database relationships 
15 comprising: 

forming a table of members available in the multiple simultaneous 
hierarchical database relationships; 

forming a table of reporting relationships among the members available 
in the multiple simultaneous hierarchical database relationships; and 
20 forming a table having a set of hierarchies, each hierarchy corresponding 

to a reporting relationship in said table of reporting relationships. 



^22. A relational database structure comprising: 
a first database table having a plurality of entries, each entry 
25 representing one of a plurality of objects with an associated data; and 

a second database table having a plurality of entries, each entry defining 
a relationship between said plurality of objects. 
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1 9 . The article of manufacture of claim 1 8 wherein each entry in said 




A method of creating a relational data structure for storage and 
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ABSTRACT OF THE DISCLOSURE 



In the present invention, a database structure is defined such that a 
database table having a plurality of objects each having an associated data is 
formed. A second table containing the relationship of one of the objects to 
another of the objects in a parent-child relationship is formed. A summary 
database table receives the data from the second database table and summarizes 
the data therefrom. By separating the relationship from the underlying data, and 
with the definition of each parent and child, execution of retrieval of 
information from the database structure is extremely efficient and fast. 
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